home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 March / PCWMAR09.iso / Software / Resources / Backup, Restoration & File Management / SyncBack SE 5.2.10 / SyncBackSE_Setup.exe / {app} / freespace.vbs < prev    next >
Encoding:
Text File  |  2006-08-14  |  1.1 KB  |  31 lines
  1. '
  2. ' Example script to display a message dialog box if the free
  3. ' disk space on one or more drives is below a certain leve;
  4. '
  5. ' You must pass the drive to check as a command line parameter.
  6. ' For example:
  7. '
  8. ' FreeSpace.vbs C:
  9. '
  10. ' IMPORTANT: The drive letter must be in that format, e.g. C:\
  11. ' will fail. It must be drive letter followed by a colon only.
  12. '
  13. const MBFREESPACEREQUIRED = 10   ' !!! Change as appropriate - this is in MBytes
  14. const ONEMB = 1048576
  15.  
  16. Set objArgs = WScript.Arguments
  17. If (objArgs.Count < 1) then
  18.   WScript.Echo "No filename or dirname to copy was supplied."
  19. else
  20.   Set objWMIService = GetObject("winmgmts:")
  21.   For I = 0 To objArgs.Count - 1
  22.     Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='" & objArgs.Item(i) & "'")
  23.     if objLogicalDisk.FreeSpace / ONEMB < MBFREESPACEREQUIRED then
  24.       MsgBox ("There is less than " & MBFREESPACEREQUIRED & "MBytes of free disk space available on " & objArgs.Item(i))
  25.       ' Wscript.Echo "There is less than " & MBFREESPACEREQUIRED & "MBytes of free disk space available on " & objArgs.Item(i)
  26.       WScript.Quit(1)
  27.     end if
  28.   Next
  29. end if
  30. WScript.Quit(0)
  31.